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PREFACE 



The user of this manual is expected to be familiar with FOCAL 
programming and the GT40 graphics system. The following documents are 
prerequisites to using FOCAL-GT/RT: 

FOCAL-11 USER'S MANUAL (DEC-11-LF0CA-D-D) 
GT40 USER'S GUIDE (DEC— 11-HGTGA-A-D) 



The "HOW TO OBTAIN SOFTWARE INFORMATION" page, located at the back of 
this document, explains the various services available to DIGITAL 
software users. 

The postage prepaid "READER'S COMMENTS" form on the last page of this 
document requests the user's critical evaluation. All comments 
received are acknowledged and will be considered when subsequent 
documents are prepared. 

The software described in this document is furnished to the purchaser 
under a license for use on a single computer system and can be copied 
(with inclusion of DIGITAL'S copyright notice) only for use in such 
system, except as may otherwise be provided in writing by DIGITAL. 

The material in this document is for information purposes only and is 
subject to change without notice. DIGITAL assumes no responsibility 
for the use or reliability of software and equipment which is not 
supplied by it. DIGITAL assumes no responsibility for any errors 
which may appear in this document. 
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CHAPTER 1 



FOCAL- GT 



FOCAL- GT is a version of FOCAL- 11 that includes additional functions 
to handle a GT40 and additional code to enable the user to communicate 
with a host computer. The GT40 may include either a keyboard or a 
Teletype. FOCAL-GT may be conditionally assembled to include a 
Laboratory Peripheral System (see Chapter 4) . FOCAL- RT, described in 
Chapter 2, performs all the operations described for FOCAL-GT in 
addition to the LPS functions. 

FOCAL text is displayed on the GT40's screen and optionally on the 
Teletype if the system includes one. The user can create and run any 
FOCAL program that could be run using FOCAL-11 on a PDP-11/05. In 
addition, he can use the new functions to create graphic 
representations on the GT40's scope. 

When used as a terminal, FOCAL-GT displays all communications with the 
host computer on the GT4 scope and optionally on the Teletype. The 
user can perform any Monitor operations he could perform from a 
Teletype. He can also save FOCAL programs and output on any storage 
device accessible to the host computer and read FOCAL programs 
previously saved on such storage devices. 



1.1 THE DISPLAY 

All text displays on the screen, 72 upright characters per line and a 
maximum of 32 lines. FOCAL-GT I/O displays as all upper case 
characters; terminal I/O may include upper and lower case characters. 
The user may dynamically vary the size of his text file. 

When the text file is full, or when 32 lines have been displayed, 
FOCAL-GT clears the screen of text and resets a solid rectangular 
cursor to the upper left hand corner of the screen where additional 
input will be displayed. The FOCAL-GT cursor does not respond to 
cursor control characters nor to FORM FEED or TAB characters. 

Graphics done by FOCAL consist of lines, points, and italic characters 
displayed in any of the modes available on the GT40. These modes 
include solid, dotdash, longdash, or shortdash lines, blinking or 
steady display, any of 8 intensities, and light-pen sensitive or 
insensitive. Any line, point, or character may have its own mode or 
may take on the mode of the previous data in the graphics file. The 
graphics file starts with solid, non-blinking, non- light pen sensitive 
graphics of intensity 4. 



1.2 THE NEW FUNCTIONS 

The new code added to FOCAL-11 is in the form of an FNEW as described 
in Section 6.3 of the FOCAL-11 USER'S MANUAL. This FNEW, unlike 
user-written FNEW's, constitutes a part of the FOCAL-11 source which 
can be conditionally assembled. The new FOCAL-11 also contains two 
additional operate options: S and H. FNEW consists of 11 graphic 
functions, code to handle terminal operations, and a display file. 
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The display file consists of two contiguous parts (see Appendix C) , 
the graphics file, and the text file. The graphics file contains all 
graphic data that the user has displayed using the graphics functions. 
The text file contains all the I/O currently displayed on the screen. 
All I/O enters this file and displays on the screen; the user may 
cause output to echo on the Teletype by using the OPERATE T (0 T) 
command and can reset to only screen echo by using OPERATE S (OS), 
which is the default setting. I/O output under the T option displays 
considerably more slowly than under the S option. 

The graphics file consists of small blocks called LOCS which contain 
the graphic data. Each LOC has assigned to it a number corresponding 
to its offset from the start of the graphics file. The first LOC has 
the number and starts at coordinates (0,0), the lower left hand 
corner of the screen. Graphic functions which add data to the 
graphics file use the LOC number as one of their arguments. The 
graphic data enters the LOC specified, overlaying any data currently 
in that LOC. This makes it possible, for instance, to continuously 
alter the length or angle of a vector or change its mode. 

The user may use the FSKP function to increase the size of his 
graphics file while decreasing his text file. The text file is reset 
to its original size when the user types two CTRL/C's (typing C while 
holding down the CTRL key) . 



1.3 THE GRAPHICS FUNCTIONS 

The graphics functions add data to the display file, alter its 
configuration, return data from the file, and handle the light pen. 

Each of the functions that add data to the file includes the LOC 
offset as its first argument. Figure 1-1 shows the display file. It 
consists of a graphics file divided into LOCS and a text file. Data 
added to the graphics file enters the LOC specified in the function 
argument list. The function then returns the value of the next LOC in 
the file. If the user specifies a negative LOC, FOCAL-GT uses its 
absolute value, returning the value specified plus 1. If the user 
specifies a LOC beyond the end of the graphics file, FOCAL-GT returns 
the negative of this LOC +1 and places the data in the last LOC of the 
graphics file. 

The GT40 starts executing the data in the graphics file at LOC 0. It 
sets the display beam to coordinates (0,0), the lower left hand corner 
of the screen, then moves the beam according to the information it 
encounters in each succeeding LOC, ignoring LOCS that do not contain 
any information. When the GT40 has completed its execution of the 
graphics part of the display file, it sets the display beam to the 
upper left hand corner of the screen and begins execution of the text 
file. At the end of the text file, it resets the beam to (0,0) and 
restarts the graphics file. 
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Figure 1-1 The Display File 



1.3.1 Lines, Points, and Characters 



FVEC (LOC,X,Y) 

FVEC puts the vector (X,Y) into the graphics file. This vector starts 
where the last datum in the graphics file ended and overlays any datum 
currently in the LOC specified in its argument list. 

Example : 

F I=1,100;X FVEC(I,10,FSQT(I) *20) 
This draws a parabola consisting of line segments in LOGS 1 to 100. 

FMOV(LOC,X,Y) 

FMOV moves the location of the display beam (X,Y) . It is the 
equivalent of an invisible vector added to the graphics file. 

Example : 

1.1 S LOC=l 

1.2 S LOC=FVEC(LOC,20,20) ;S LOC=FVEC (LOC ,20 ,-20 ) 

1.3 S LOC=FVEC (LOC, -40,0) 

1.4 F I=1,500;X FMOV(0,I,I) 

This draws a triangle then gradually moves it diagonally across the 
screen. 

FPT(LOC,X,Y) 

FPT adds a point at absolute location (X,Y) on the screen regardless 
of the previous location of the display beam. Any vector added to the 
file in the next LOC will start at this absolute location. 

Example : 

X FPT(1,512,390) 

This draws a point at the center of the screen. 

FSET(LOC,X,Y) 

FSET sets the display beam to an absolute location on the screen. It 
is the equivalent of an invisible absolute point. 

Example : 

F I=1,2,10;X FSET (I ,1*20 ,1*20) ;X FVEC ( 1+1 ,100 , 0) 
This draws horizontal vectors at 5 points along a 45-degree slope. 



FTXT(LOC,A,B,C,. . .) 



FT XT inserts italic characters in the graphics file. Each LOC in the 
file can contain a maximum of four characters; the origin of these 



characters (the lower left hand corner of the first character) starts 
at the current position of the display beam. FTXT inserts characters 
starting at the LOC specified in the first argument and continues to 
insert characters until it reaches the last argument, going on to the 
next LOC in the graphics file whenever one fills. It returns the 
value of the last LOC it has used plus 1. 

The argument of FTXT take the form of numeric values that correspond 
to FOCAL character values or to ASCII values. For instance, FOCAL- GT 
interprets the argument OD as the letter D, but it also interprets the 
argument 68 as the letter D. Appendix B contains a complete list of 
FOCAL-GT' s character set and the corresponding decimal values. For 
further explanation of FOCAL' s treatment of characters used as numeric 
values, see the FOCAL-11 USER'S MANUAL. 

EXAMPLE : 

1.1 X FMOV(1,500,500) ;S LOC=2 

1.2 S LOC=FTXT(LOC,0N,05,0W,0BL,0L,05,0T,0T,05,0R,58) 

1.3 ASK "LETTER" L 

1.4 X FTXT(LOC,L) ;G 1.3 

This displays NEW LETTER at the center of the screen, then accepts 
input and displays the value of the input. Note that OBL has the 
value 32 which corresponds to a blank. 



1.3.2 Skips 



FSKP(L0C[,L2] ) 

FSKP serves a number of purposes depending upon the values of its 
arguments. Basically, it places in the LOC specified in the first 
argument, a jump to the LOC specified in the second argument. A jump 
serves to skip all data in the intervening LOCS. The second argument, 
L2, is shown in square brackets to indicate that it is optional. 

If L2 is beyond the entire graphics file, FOCAL-GT increases the 
length of the graphics file at the expense of the text file so that L2 
becomes the last LOC. In so doing, FOCAL-GT clears the text file, 
resetting the cursor to the upper left hand corner of the screen and 
inserts, in LOC, a jump to the start of the text file. If L2 
specifies an offset that surpasses the entire text file, FOCAL-GT 
decreases the size of the text file so that it displays only one line 
at a time and inserts, in LOC, a jump to the start of the text file. 

If L2 is negative, FOCAL-GT inserts a jump, in LOC, to the beginning 
of the graphics file. Thereafter, FOCAL-GT never reaches the part of 
the display file that displays text — so the text does not display. 
If the user wished to type in additional data, he would have to do so 
without an echo on the screen. 

If the argument L2 does not appear in the argument list of FSKP, as in 
XE FSKP (LOC), FOCAL-GT inserts a jump to the start of the text file 
and clears the text file. Thus, the function may be employed to clear 
all text display from the screen. 
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Examples : 

For a graphics file 100 LOCS long, 

X FSKP(10,50) 
skips around all data in LOCS 11 to 49; 

X FSKP (10,150) 

makes the graphics file 150 LOCS long and clears the text file; 
X FSKP(10, 10000) 

makes the text file one line long, devoting the remainder of the 
display file to graphics; 

X FSKP (10,-1) 

enters a skip to the start of the graphics file so that any text in 
the text file does not display; 

X FSKP (10) 

enters a skip to the start of the text file and clears the text file. 



1.3.3 Use of Negative LOCS 

As mentioned previously, FOCAL-GT interprets a negative value in the 
LOC argument of a graphics function as its absolute value but returns 
the negative value plus 1. FOCAL-GT also returns the negative of a 
LOC argument that exceeds the end of the graphics file. The user can 
use these characteristics to draw in sequentially lower LOCS and to 
automatically reverse when graphics input reaches the end of the 
graphics file. 

Example : 

1.1 X FSKP(l) ;S LOC=l 

1.2 F 1=0,. 1, 1000 ;S LOC=FVEC (LOC , 1 ,FSIN ( I) *10+1) 

This draws a sinuous wave at an upward angle across the screen from 
left to right. Then, when the graphics file fills, it draws the wave 
in the opposite direction. When the left hand edge of the screen is 
reached, it will start again. 



1.3.4 Graphic Modes 



FDIS ( TYPE , INT , BLINK , LP ) 

Each datum that enters the display file has associated with it a set 
of 4 modes. These modes are established with an FDIS command and 
apply to all subsequent graphics functions until a new FDIS command is 
issued. The original modes of the graphics file are solid line, 
intensity 3, steady display, and non- light pen sensitive. 
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The arguments of FDIS have the following significance: 



TYPE 



-Line Type 
=0 means solid lines 
=1 means longdash lines 
=2 means shortdash lines 
=3 means dotdash lines 



INT 



-Intensity 

A number between (lowest intensity) and 7 (highest 
intensity) 



BLINK 



-Blinking or steady display 
=0 means steady 
=1 means blinking 



LP 



-Light pen sensitivity 

=0 means non- light pen sensitivite graphics 
=1 means light pen sensitive graphics 



Example : 



1.1 XE FDIS(3, 1,1,0) jXE FVEC(0,0,0) 

1.2 XE FDIS(0,7,0,1) ;XE FMOV(l ,50 ,50) 

1.3 XE FVEC(2, -100,0) ; XE FVEC (3 , ,-100 ) 

1.4 XE FVEC(4, 100,0) ;XE FVEC (5 ,0 ,100) 

This draws a bright, light pen sensitive square whose center moves to 
the point on its circumference hit by the light pen, and a blinking, 
dotdash line from the lower left hand corner of the screen to the 
center of the square. 



1.3.5 LOC Coordinates 



FXCO(LOC) and FYCO(LOC) 

FXCO and FYCO return the X and Y coordinates, respectively, of the LOC 

specified in the argument. If the LOC contains no data or if it 

contains a skip, FXCO and FYCO return zero values. 



X FVEC (10 , FXCO (10) +100 ,FYCO(10) +100) 
This extends the vector in LOC 10. 



1.3.6 Light Pen Operation 

When FOCAL-GT senses a light pen hit on graphics specified as light 
pen sensitive, it saves the value of the LOC containing the line, 
point, or character hit and puts the coordinates of the hit into LOC 
0. Since FOCAL-GT allows only vectors and points in LOC , the vector 
or point in LOC takes on the coordinates of the light pen hit. For 
example, an invisible vector in LOC always extends from the lower 
left hand corner of the screen to the location of the last light pen 
hit. The user may take advantage of this property of LOC in several 
ways . 



Example : 
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For example, FXCO(O) and FYCO(O) can be used to return the coordinates 
of the last light pen hit. Also, LOC can be used to implement 
tracking by drawing a light pen sensitive tracking cross with its 
center starting in LOC 1, and an invisible vector in LOC 0. Whenever 
FOCAL- GT gets a hit on this cross, it will put the coordinates of the 
hit into the invisible vector in LOC causing the center of the cross 
to move to the location of the hit. Thus the cross, once drawn, will 
track the light pen without program control. The user usually inserts 
an absolute point in the LOC following the last LOC used by the 
tracking cross so that any graphics following this point will not 
move. 

The user may connect individual pictures he has created by means of 
the light pen. This is done by inserting a skip in LOC 1 to the start 
of the picture to be connected. If the picture consists entirely of 
light pen sensitive vectors, its origin moves to wherever the light 
pen hits it. When the picture is in position, the user need only 
determine the coordinates of its new origin using FXCO(0) and FYCO(0) 
and insert an absolute point with these coordinates in the LOC 
preceding the origin of the picture. He may then remove the skip from 
LOC 1 and the picture will remain where he left it. 

Example : 

1.1 D 9 

1.2 S LOC=FSET(LOC,0,0) ;S Xl=0;S Yl=0 

2.2 ASK "DRAW"D;S X=FXCO(0);S Y=FYCO(0) 

2.3 S L0C=FVEC(L0C,X-X1,Y-Y1) ;S X1=X;S Y1=Y;G 2.2 
9.05 XE FMOV(0,500,400) 

9.07 S T=40;S R=.7*T;S S=.5*T 

9.1 X FDIS(0,5,0,1) 

9.2 X FVEC(1,R,S) 

9.3 X FVEC(2,-R,-S-T) ;X FVEC ( 3 ,-R, S+T) 

9.4 X FVEC(4,2*R,-2*S) 

9.5 X FVEC (5, -R, S+T) ;X FVEC (6 , -R,-S— T) 

9.6 X FVEC(7,2*R,2*S) 

9.7 X FVEC(8,-2*R,0) 

9.8 X FVEC(9,2*R,-2*S) 

9.9 X FVEC(10,-2*R,0) ;X FVEC(11,R,S) 
9.95 S LOC=12 

This displays a tracking cross which can be used to draw lines by 
hitting the RETURN key. The RETURN key draws a line from the previous 
location of the cross to its new location. The cross starts and ends 
at its center; consists of 13 lines, all visible and of considerable 
length; and registers light pen hits in any direction that the light 
pen moves. 

The user may construct other tracking crosses responsive to the needs 
of the individual program. 



Example s 

F I=50,100;XE FCLR(I,0,0) 
This clears LOCS 50 through 100. 
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1.3.7 Light Pen Hits 



FLP (ARG) 

FLP returns the LOC of the data which caused the last light pen hit. 
If ARG=0, FLP waits for the next light pen hit before returning to the 
caller. If ARG does not equal zero, FLP returns immediately. FLP 
allows the light pen to be used to initiate program operations as well 
as to determine where in the graphics file a light pen hit occurred. 
This property can be used, for instance, to implement a menu, using 
the LOC of the letters hit to determine which operations to perform. 

Example : 

1.1 XE FPT(1,0,0) ;X FMOV{ 2 , , 500 ) ; X FDIS (0 ,6 ,0 ,1) 

1.2 X FTXT(3,0U,0P) ;X FMOV( 4 , ,-100 ) 

1.3 X FTXT(5,0D,0O,0W,0N) 

1.4 S X=500;S Y=400 

1.5 X FPT(6,X,Y) 

1.6 I (FLP(0)-4)1.7,1.7,1.8 

1.7 S Y=Y+20;G 1.5 

1.8 S Y=Y-20;G 1.5 

This displays a point near the center of the screen and a menu 
consisting of the two words UP and DOWN. When the light pen hits UP, 
the point moves up; when it hits DOWN, the point moves down. 

When a light pen hit occurs near an edge of the screen on a vector 
that displays partly off the screen, FOCAL-GT may insert erroneous 
coordinates in LOC 0. Since the hardware may not inform FOCAL-GT of 
the light pen hit until the vector has already gone off the screen, 
FOCAL-GT may put the wraparound coordinates of the vector in LOC 0. 
For instance, a vector drawn off the screen to the left may return an 
X-coordinate of 1023 rather than 1 where the hit actually occurred. 
FOCAL-GT never returns coordinates not within the screen's viewing 
area, so a tracking cross never disappears, although it may jump from 
one edge of the screen to the opposite edge. 



1.3.8 Erasures 



FCLR(ARG) 

FCLR clears the entire graphics file, without altering the text file 
or the size of the graphics file. It returns a value equal to the 
ARG+1 though the argument has no effect on its operation. 

The user may clear individual LOCS by inserting length vectors. 

Example : 

X FCLRO 

This clears the graphics file, leaving the text file undisturbed. 
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CHAPTER 2 
FOCAL- RT 



FOCAL-RT, a new FOCAL for use with the GT40 and LPS (Laboratory 
Peripheral System) , extends and modifies FOCAL-GT. The user can 
obtain two separate standard binaries: FOCAL-GT for use with a GT40 
without LPS and FOCAL-RT for use with a GT40/LPS combination. 

In addition, the user may obtain the FOCAL- GT/ RT source and assemble 
it to produce a variety of nonstandard configurations. Chapter 4 
contains the assembly instructions for FOCAL-GT/RT. 



2.1 LPS FUNCTIONS 

The following three LPS functions allow the user to sample any of the 
8 A/D channels, to start the clock and use it as a timer for FOCAL 
operations, and to put an integer value into the numeric display on 
the face of the LPS. 



2.1.1 FLED(ARG) 

The FLED function loads the integer part of the argument into the 
numeric display on the face of the LPS (called the LEDS) . FOCAL-RT 
only uses the 5 least significant digits of the integer part of the 
argument and returns the value of the remaining digits. 

Example : 

1.1 X FLED(FSAM(0)-2048) ;G 1.1 

This loads the LEDS with the value in channel less 2048, a value 
between -2048 and +2048. 



2.1.2 FTIC(ARG) 

The FTIC function allows the user to set and read the timer, a 16-bit 
register that the LPS clock increments each time it ticks. The timer 
maintains a count of the number of ticks that have occurred since the 
clock started. Its 16 bits can count up to 32767 before it clears to 
zero and continues incrementing. 

Calling FTIC with an argument greater than zero sets the timer to zero 
and starts the clock ticking every ARG/lOOOOth of a second. It 
returns the current value of the timer, which is 0. 

Any error except Error 0.00 stops the clock, if the timer is non-zero 
at the time of the error, thereby leaving the timer at its value at 
the time of the error. Error 0.00 clears the timer to zero. 
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Example : 

1.1 X FTIC(IOOO) 

1.2 T FTIC(O) ;G 1.2 

This continually displays the value of the clock which ticks once 
every 1/10 of a second. 

Example : 

1.1 X FTIC(IOO) 

1.2 X FTIC(-IOO) ;T "TIC",!;G 1.2 
This displays "TIC" once a second. 



2.1.3 FSAM(chanl [ ,num,chan2] ) 

The FSAM function may be used as follows to sample the channel 
specified in the argument and return its value as an integer between 
and 4096. 



Example : 

1.1 

1.2 



X FVEC(l,FSAM(0)/4,FSAM(l)/4) 
G 1.1 



This continuously draws a vector with 
by the values in channels and 1. 



X and Y coordinates determined 



Optionally, the FSAM function may be used to sample up to 5000 points 
per second and place the values into a 1000-word buffer. It may also 
use Schmitt trigger 1 to initiate sampling. The optional FSAM 
arguments take the following form: 

FSAM(+A[,+B,+C]) 



One Argument: 



Two Arguments : 



Three Arguments : 



For A positive, sample channel A. 

For A negative, return Ath to last sample from the 
buffer. 

A must be positive. 

For B positive, sample B points from channel A. 
For B negative, wait for Schmitt pulse, then 
sample B points from channel A. 

Same as for two arguments except that it allows a 
dual sample from channels A and C. Every time the 
clock ticks, the value from A will enter the 
buffer followed, within 30 us., by the value from 
C. 



To use these optional arguments, the user first starts the clock 
ticking with the FTIC function as described above. The user must 
ensure that the clock does not tick faster than the highest sample 
rate: 2/10000 for single sampling, 3/10000 for dual sampling. FTIC 
sets the clock ticking in intervals determined by its argument over 
10,00 parts of a second. FSAM may then sample all 8 A/D channels, 
two at a time if desired, and use Schmitt trigger 1 to initiate 
sampling. it may also read at random from the LPS input buffer. 
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Example : 



1.1 S A=FSAM(2,100) 

This reads 100 values from channel 2, one for each clock tick, into 
the LPS buffer. A is set equal to the last value. 

Example : 

1.1 S A=FSAM(0,100,2) 

This reads a total of 100 values, two at each clock tick, the first 
from channel and the second from channel 2 with 20 to 30 us. 
between members of the pair. 

NOTE 

Dual sampling can sample up to 6667 
points per second (3 33 3 dual samples per 
second) . 

Example : 

1.1 X FSAM(7,-10) 

This stops the clock, restarts it on A Schmitt pulse, then reads 10 
samples, one on each clock tick. 

Example : 

1.1 S A=FSAM(2,1) 

This sets A equal to the value in channel 1 as soon as the clock 
ticks. 

Example : 

1.1 S A=FSAM(-1) 
This sets A equal to the last sample. 
Example : 

1.1 S A=FSAM(-5) 
This sets A equal to the fourth to last sample. 

If the user wishes to display his samples as points on the screen, he 
may do so by reading their values from the LPS input buffer and 
putting them into the graphics file. 

Example : 

1.1 X FSAM(0,500) 

1.2 S LOC=l 

1.3 F I=1,10,1000;S LOC=FPT ( LOC , I , FSAM ( - I ) ) 

This displays the first 100 points sampled along the X axis, 
incrementing 10 units per point. 
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CHAPTER 3 
FOCAL-GT/RT CHARACTERISTICS 



The user may create FOCAL programs and execute command lines under 
FOCAL-GT/RT the same as under FOCAL-11. FOCAL-GT/RT prompts with a # 
sign rather than an *. A FOCAL program that contains none of the new 
functions runs exactly the same under FOCAL-GT/RT as under FOCAL-11 
except that I/O is displayed on the screen and only displays on the 
Teletype after an O T instruction. The user may execute all graphic 
and LPS functions either within a program or directly as shown in the 
previous examples. Once a graphics program has started, typing CTRL/C 
twice (holding down the CTRL key while typing the C key) stops it, 
clears the display file, and resets the size of the graphics and text 
files to their original values. To stop a graphics program without 
erasing its graphics, hit any two characters other than CTRL/C at some 
point in the program's execution. The program halts with an 18 error, 
leaving its graphics on the screen and the display file unchanged. 
The display can be altered with direct commands or with another 
program. 

An unusual and sometimes useful phenomenon the user may observe when 
overlaying one picture with another that uses the same LOCS is the 
movement of the old picture as the new one is created. This occurs 
because all vectors extend relative to the previous vector in the 
graphics file. Altering some of the vectors that began a picture 
moves the remaining vectors in the picture around the screen. 

Example : 

F J=1,10;F I=1,10;X FVEC(I ,10 ,J) 

This draws a line composed of line segments in LOCS 1 to 100, then 
redraws it at greater slopes causing the line displayed to bend. 

The user may also find that certain figures he has drawn, e.g., a 
circle composed of line segments, do not seem to close when the figure 
completes. The fact that all vectors display with integer lengths 
whereas the arguments to the vector functions may have non-integer 
parts causes this rounding error. To minimize this error, add .5 to 
all non-integer arguments so that errors cancel. 

Example : 

1.1 X FSKP (1,400) ;X FSET ( , 800 ,400 ) ; X FVEC (1 ,-800 , 0) ; S LOC=2 

1.2 F I=.1,.2,12.56;S LOC=FVEC (LOC, 10 ,FSIN ( I) *10+. 5) 

This draws a cosine wave consisting of 62 line segments above a 
tangent. The peaks of the cosine wave touch the tangent as they 
should. Neglecting to add the rounding factor, .5, produces a wave 
whose peaks dip below the tangent. 

When text or skip data continually enters the graphics file, the 
display blinks somewhat; when the data has stopped entering the file, 
the display stops blinking and grows brighter. FOCAL-GT/RT must stop 
the display every time it adds a piece of such data to the graphics 
file; this causes the display to blink. 
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3.1 FOCAL-GT/RT AS A TERMINAL 



If the GT40 is connected via an asychronous line of baud rate 300 or 
lower to a host computer, it can communicate with that computer 
displaying all communication on the screen of the GT40, and 
optionally, if the GT40 has a Teletype, on the Teletype. The GT40 can 
be used in the same way as a Teletype to do all Monitor operations 
normally done on the host computer. However, any commands not 
normally handled by a Teletype cannot be used since FOCAL-GT/RT does 
not interpret command characters not normally understood by a 
Teletype. The text display displays up to 40 lines of I/O and then 
clears. 

FOCAL-GT/RT also makes it possible to send FOCAL output, including the 
FOCAL program itself, to the host computer and allows FOCAL to listen 
to input, including a FOCAL program, sent to it from the host 
computer. The user switches between the various modes of operations 
using two control characters which FOCAL-GT/RT traps and one 
additional operate option. 



3.2 FLOW OF DATA 

Figure 3-1 portrays a GT40 system consisting of FOCAL, a keyboard, a 
scope, and a host computer. The arrows indicate the possible flow of 
output from each device. The state of three switches determines each 
direction. Output flows from its origin along the arrows indicated by 
the setting of the switches until it reaches the scope. Typing CTRL/F 
causes the direction of keyboard output to change. Typing CTRL/T 
causes the direction of host output to change. The operate options S, 
for screen, and H, for host, determine the direction of FOCAL output. 

As Figure 3-1 indicates, output from the keyboard can go either to 
FOCAL or to the host computer, depending on the state of the CTRL/F 
switch. Output from the host computer, including its echo of the 
keyboard or FOCAL input, can go either to the host or to the screen 
depending on the state of the CTRL/T switch. Output from FOCAL, 
including its echo of host or keyboard input, can go either to the 
host or to the screen depending on the state of the operate option. 
For example, with the CTRL/F switch pointing to the host and the 
CTRL/T switch pointing to the screen, notice on the diagram that 
keyboard output goes to the host which echoes it to the screen. If 
the CTRL/T switch had pointed to FOCAL, and FOCAL had the S option 
operative, keyboard output would have gone first to the Monitor, then 
to FOCAL, then to the screen. Both the host Monitor and FOCAL would 
process all command lines resulting in an error. Usually two 
prompting characters on a single line, one from FOCAL , the # sign, 
and one from the host Monitor, indicate that this problem is 
occurring. Change the direction of the CTRL/T switch to solve this 
problem. The CTRL/T that discontinues output to the host computer 
echoes an underline character. This character indicates that the 
current direction of the host computer is to the screen and also 
serves to erase any characters that the host computer may have left on 
the current line so that FOCAL will ignore them. 

The operate character H (host) sends FOCAL output to the host 
computer. For example, H;W A;0 S writes a FOCAL program to the host 
computer, then returns the screen to the output device. 
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Figure 3-1 Flow of Data 
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3.3 SAVING AND RESTORING FOCAL PROGRAMS 



The various switches that control I/O allow the user to use the host 
computer for storage of FOCAL programs. To save a program on the host 
computer's storage device, for example, type CTRL/F to begin 
communications with the host computer. Then create a file, giving it 
the name of the FOCAL program. Begin insertion from the Teletype, 
then type CTRL/F to resume communication with FOCAL. Once in FOCAL, 
use the H option and the WRITE command to write the program to the 
file on the host computer. When FOCAL-GT/RT has finished writing the 
file, type CTRL/F to resume communications with the host computer and 
close the file which now contains the FOCAL program. In the same way, 
a file of FOCAL output can be created on the host computer by 
inserting an H command in the FOCAL program before output commences. 

A FOCAL program can be read from the host computer by instructing the 
host computer to print the program and, before this output begins, 
typing CTRL/T. The output displays on the screen, but FOCAL-GT/RT 
receives this output as though it had come from the keyboard. 

FOCAL may also read data files from the host computer as follows. 
Start the FOCAL program running. When it prints a colon to indicate 
that it wants input, type CTRL/F and instruct the host computer to 
print a file, typing CTRL/T before output begins. If the loop in 
which FOCAL asks for information is fast enough to keep up with the 
rate of output from the host computer, FOCAL will be able to read the 
file. 

NOTE 

When CTRL/F is typed for the first time, 
control transfers to LOADVT which is 
still in core and the system responds 
with : 

>R* 

Type CTRL/C to return to the host 
Monitor. All subsequent CTRL/F' s will 
cause a response of . or #. 

Example : 

The following assumes that a user has created a FOCAL program and has 
a DECsystem-10 as host computer. Characters printed by the system are 
underlined, control characters typed by the user but not echoed on the 
screen appear within angle brackets. Originally, the user is talking 
to FOCAL. 

#<+ F><CR> 

.MAKE PROG.FOC<CR> 

*K+F><CR> 

#0 H;W A;0 S<CR> 

C: FOCAL 

1.1 S A=5 

1.2 T A 
#<+F><CR> 
$EX$$ 

.TYPE PROG.FOC 
C: FOCAL 
1.1 S A=5 
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1.2 T A 
. <tF><CR> 
# 



NOTE 

At baud rates higher than 300 on a 
heavily loaded system, TECO may not be 
able to keep up with the input from a 
WRITE ALL statement. This makes saving 
a program which consists of many lines 
impossible using the WRITE ALL 
statement. Under these circumstances, 
the user may save a program a line at a 
time. For example, H;W 1.1;0 S sends 
line 1.1 to TECO. 

This transfers the contents of PROG.FOC to FOCAL and saves a FOCAL 
program in a file called PROG.FOC. 

Example : 

At some later time, the user wishes to restore his program. 
#<+F><CR> 

.TYPE PROG.FOC<+T><CR> 

#Ci FOCAL 

#1.1 S A=5 

#1.2 T A 

,<+T>-f-< + F><CR> 

#W A 

C: FOCAL 

1.1 S A=5 

1.2 T A 

# 

For saving and storing FOCAL programs on paper tape, refer to the 
FOCAL-11 USER'S MANUAL, Section 3.4.1.1. 



3.4 PROGRAMMED MONITOR COMMANDS 

A FOCAL program can also issue host Monitor commands via the TYPE 
command. If an O H precedes a TYPE commmand, the output from the TYPE 
commmand goes to the host computer. If this output is in the format 
of a host computer Monitor command, the host computer interprets it as 
if it had come from a terminal. However, programming FOCAL to execute 
a series of Monitor commands depends on the ability of the host 
compute to buffer command input since FOCAL outputs these commands as 
soon as it reaches the TYPE commmand. The user may use a clock or a 
long FOR loop to slow down FOCAL' s output but, in any case, if the 
input to the host computer exceeds its ability to buffer input, the 
host computer responds as if the excess input had come from any other 
terminal device. 
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Example : 



1.1 O H;T "MAKE OUTPUT. FOC" ,!," I" 
1.15 F 1=1, 100 ;S A=5 

1.2 F I=1,10;T FSAM(0),!;F J=1,100;S A=5 

1.3 T M $EX$$";0 S 

This creates a file called OUTPUT. FOC and prints 10 A/D values into 
it, using FOR loops to leave time between each value output. It then 
closes the new file. Note that FOCAL-GT/RT echoes $ when it receives 
an ALTMODE as in line 1.3. 
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CHAPTER 4 

ASSEMBLING, LOADING, AND OPERATING FOCAL-GT/RT 



The user may obtain the FOCAL-GT/RT source from the Software 
Distribution Center. This source is provided on a PDP-10 formatted 
DECtape (DEC-11-GGRSA-A-UA) . The user assembles this source on 
DECsystem-10 using MACDLX, the PDP-11 assembler for the PDP-10. The 
parameters defined in the assembly process determine the nature of the 
binary produced. For example: 

.R MACDLX 

*FOC RT . BI N/I /EQ ; GT 4 : TE RM : RT«- FOCGT .002 
This produces the standard binary of FOCAL-RT. 



4.1 ASSEMBLY PROCEDURES 

Assemble FOCAL-GT or FOCAL-RT with MACDLX on the DECsystem-10. Figure 
4-1 depicts the code in the source of FOCAL-GT/RT that defines the 
size of the display file and the parameters that determine the nature 
of the binary produced. The user defines these parameters at assembly 
time . 

Examples : 

FOCAL . BIN/I-*- FOCGT .002 
This produces FOCAL-11 which does not make use of the display. 

FOCGT . BIN/I/EQ : GT4 0+-FOCGT .002 
This produces an 8K FOCAL-GT with no terminal code. 

FOCGT . BIN/I/EQ : GT4 : TERM : PARAM+TTY : , DSK : FOCGT .002 

READY 

KSIZE=10000 
DSIZE=100 
TSIZE=700 

tz 

READY 

tz 

This produces a 4K FOCAL-GT with a display file 1000 (octal) words 
long and an inital text portion 700 (octal) words long. 
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Figure 4-1 Display File Code 
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Figure 4-1 (Cont.) Display File Code 
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4.2 LOADING PROCEDURES 



The user may load his FOCAL binary via the paper tape reader or over 
an asynchronous line connected to a host computer on whose storage 
area both the binary of FOCAL and the loader program reside. To load 
from a host computer: 

1. LOAD ADDRESS 166000 AND START. 

This starts the hardware bootstrap which will display I/O on 
the screen and from which the user may perform all Monitor 
commands. To reset the screen when output reaches the screen's 
bottom, hit START again. 

2. START THE LOADER PROGRAM. 

To the DECsystem-10 Monitor, type RU LOADVT. 

3. Give the loader the name of the proper bootstrap (BOOT4.BIN for 
4K; BOOT8.BIN for 8K) . (The binary tape supplied requires the 
8K bootstrap. ) 

4. When the prompting character appears again, give the loader the 
name of the FOCAL binary. 

5. Wait until the FOCAL error message 00 appears on the screen. 

Example : 

.RU LOADVT<CR> 
*«-FOCGT.BIN<CR> 
?00 AT 0.00 
# 

The procedure for loading FOCAL-GT/RT from paper tape requires loading 
the Bootstrap Loader and the Absolute Loader, followed by the 
FOCAL-GT/RT paper tape. For more detailed instructions, refer to 
Chapter 6 of the PDP-11 PAPER TAPE SOFTWARE PROGRAMMING HANDBOOK 
(DEC-11-XPTSA-A-D) . To make more efficient use of core, FOCAL-GT/RT 
uses the core where the loaders resided when it runs. 



4.3 NEW ADDRESSES 

To eliminate the terminal code from FOCAL- GT, enter the address 
INITD-2 in location BOTTOM (16 52). 

For the purposes of adding new functions, for both FOCAL-GT and 
FOCAL-RT, consider the address in BOTTOM as the top of core. 



4 . 4 RESTART 

Operation of FOCAL-GT/RT differs from that of FOCAL-11 only in that on 
restart and power-fail, the user must type CTRL/C twice to FOCAL to 
restart the display. In general, if the display disappears for any 
reason, two CTRL/C s sent to FOCAL (not to the host Monitor) will 
bring it up again. 



4-4 



4.5 ADDING NEW FUNCTIONS TO FOCAL-GT/RT 

Chapter 6 of the FOCAL- 11 USER'S MANUAL describes the procedure for 
adding an FNEW to FOCAL-11. FOCAL-GT/RT already contains such an FNEW 
called DNEW. DNEW consists of the graphic and LPS functions, the 
display file, and the terminal hook-up code. The user may add 
additional code in the area just below the start of DNEW and 
additional function names in the function list starting where the new 
functions leave off. In other words, he may add an additional 
function to FOCAL-GT/RT in the same way he would extend an FNEW he had 
written himself. 

For both FOCAL-GT and FOCAL-RT, the address in location BOTTOM is the 
highest free address in core. The highest free address in the 
function list is 1012 for FOCAL-RT and 1026 for FOCAL-GT. The user 
who has obtained the source of FOCAL-11 may determine these addresses 
directly from the listing for his particular binary. 

Referring to the FNEW example in Section 6.3.5 of the FOCAL USER'S 
MANUAL, FQUAD may be added to the 8K standard binary of FOCAL-GT/RT by 
altering the example as follows: make its starting address equal to 
the address contained in location BOTTOM- 144. Then, in locatxon 
STACKO+2, change '1100-4' to '1012-4' for RT or \' 1026-4* for GT and 
change the absolute address setting '.=1100+2' to '.=1012+2' for RT or 
'.=1026+2' for GT. The user who intends to add an FNEW must, however, 
have a paper tape reader attached to his GT4 or have access to the 
source of FOCAL-GT/RT because the GT40's loading program cannot load 
overlays from the DECsystem-10 (host computer) . 

To add an FNEW to FOCAL-GT/RT and load the new code from the PDP-10, 
the user must delete the .END statement from FOCAL-GT/RT and combine 
its source with the source of his overlay when assembling, then load 
the single new binary produced. 

Example : 

Delete the .END statement from FOCGT.002, then: 
.R MACDLX 

*FOCNEW. BIN-^FOCGT. 002, FNEW. SRC 

This will produce a binary that includes the new functions. An FNEW 
used in this manner need not redefine variables such as FGET already 
defined in the FOCAL-GT/RT source. 
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APPENDIX A 
FUNCTIONS AND SWITCHES 



A. 1 FUNCTIONS 



A. 1.1 Graphic Functions 
FVEC (LOC,X,Y) 
FMOV(LOC,X,Y) 
FPT(LOC(X,Y) 

FSET(LOC,X,Y) 

FTXT(LOC,A,B,C,...) 

FSKP(LOC[,L2] ) 



FDIS ( TYPE , INT , BLINK, LP) 



Puts vector (X,Y) in LOC. Returns LOC+1. 
Puts invisible vector (x,Y) in LOC. 

(X,Y) in LOC. 



Puts the absolute point 
Returns LOC+1. 



Puts the invisible absolute point 
LOC. Returns LOC+1. 



(X,Y) in 



Adds character of numeric value A,B,C... 
starting in LOC, 4 characters per LOC. 
Returns last LOC used +1. 

For L2 less than end of graphics file, puts a 
skip to L2 in LOC. 

For L2 greater than end of graphics file but 
less than end of display file, increases size 
of graphics file to L2 LOCs , clears the text 
file, and enters a skip to start of text in 
LOC. 

For L2 greater than end of display file, 
increases size of graphics file until text 
file contains one line of text, maximum, 
clears text file, and enters a skip to its 
start in LOC. 

For L2 not included, clears the text file and 
enters a skip to its start in LOC. 



All the above return LOC+1. 

Sets the mode of the next LOC entered in 
graphics file. 



the 



Type Solid 

1 Longdash lines 

2 Shortdash lines 

3 Dotdash lines 
Intensity (Dimmest) to 7(Brighest) 
Blink (Off) or 1 (On) 

Light Pen Sensitivity (LP) O(Off) or 1 (On) 



FXCO(LOC) 



Returns X-coordinate of datum in LOC. 
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FYCO(LOC) Returns Y-coordinate of datum in LOC. 

FLP(ARG) For ARG equal to 0, waits for next light pen 

hit and returns LOC hit. 

For ARG not equal to 0, returns LOC last hit. 
FCLR(ARG) Clears graphics file. Returns ARG+1. 



A. 1.2 LPS Functions 
FS AM ( CHAN ) 
FLED (ARG) 

FTIC(ARG) 



Returns value in A/D channel CHAN. 

Loads LEDS with integer part of ARG, up to 5 
digits. 

Returns value of digits over 5 digits. 

For ARG greater than , sets timer to and 
starts clock ticking at ARG/10000 of a 
second. 

Returns value of timer, 0. 

For ARG=0, returns value of timer. 

For ARG less than , sets time to the value 
of ARG, returns value when timer reaches 0. 



A. 2 SWITCHES 



CTRL/F Changes direction of keyboard output, either 

to screen or to host Monitor. 

CTRL/T Changes direction of host output, either to 

FOCAL or to screen. 

O H Sends FOCAL output to host. 

O S Sends FOCAL output to screen. 

O T Echoes FOCAL output on Teletype. 
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APPENDIX B 
DECIMAL-CHARACTER EQUIVALENTS 
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*A11 values Modulo 128. 
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APPENDIX C 
THE DISPLAY FILE 



The display file is a contiguous area of PDP-11 core consisting of two 
parts! the graphics file and the text file, the boundary between them 
being adjustable. Figure C-l shows the display file. The graphics 
file consists of 3-word cells called LOCS into which instructions that 
the GT40 understands are placed by user functions. The text file 
consists only of characters at two characters per word. The display 
file begins with a display stop instruction followed by a status word 
and an absolute point at (0,0). (See the GT40 USER'S GUIDE for a 
description of GT40 instructions.) The text file starts with a status 
word followed by an absolute point at (0,680) and then a word 
indicating character mode. The display file ends with a display jump 
to the start of the display file where the display stop resides. 

Each time the display stops, FOCAL-GT/RT restarts it at the status 
word that follows the stop. When the display file is clear, each LOC 
in the graphics file consists of three display NOPS while the text 
file consists of null characters. The four vector and point functions 
place a mode word, either vector or absolute point, in word 1 of the 
LOC specified in the ARG list and the X and Y coordinates in words 2 
and 3 respectively. FT XT places a character mode word in word 1 of 
the LOC and two characters each in words 2 and 3. In all these cases, 
the mode word determines the type of graphics in words 2 and 3 as well 
as their mode if specified in FDIS. 

FSKP also places a mode word in word 1 of the LOC as well as a display 
jump in word 2 and a jump address in word 3. In the case of FSKP, the 
mode word determines mode only, not the type of graphics in the LOC. 
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to START 


JUMP 





















> text 



Skip LOC 



Vector/Point LOC 



Character LOC 











Char 


Char 


Char 


Char 
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Address 




X = 


JUMP 




ABS. PT. 
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STATUS 
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point mode 











Char 4 


Char 3 


Char 2 


Char 1 


Character Mode 



Figure C-l The Display File 
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X = 



ABS. PT. 



STATUS 



STOP 



) graphics 
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APPENDIX D 
BAUD RATES GREATER THAN 300 



FOCAL-GT/RT can do most I/O at Baud rates up to 2400. It can act as a 
terminal at these rates, and it can output data, as in the WRITE ALL 
commmand, at these rates. However, inputting a program at 2400 Baud 
may cause a buffer overflow, error 18, between lines. For example, if 
the user types: 

. TYPE PROG.FOC 

followed by CTRL/T and a carriage return, an error may occur. 
FOCAL-GT/RT will not receive the entire program. To run FOCAL-GT/RT 
at 2400 Baud, do FOCAL input by allowing additional time between 
output of each line, thus giving FOCAL-GT/RT time to process each line 
before beginning the next one. 

Example : 

.TECO PROG.FOC 
100<100<L-L>TL>$$ 

NOTE 

In the above command line , the angle 
brackets constitute TECO commands. The 
$'s in the above example are echoed when 
the user types the ALTMODE key. After 
typing ALTMODE, the user types CTRL/T. 

This outputs up to 100 lines of PROG.FOC, leaving time between output 
of each line while TECO executes an instruction that effectively does 
nothing. 
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APPENDIX E 
FOCAL-11 ERROR DIAGNOSTICS 



Code Explanation 

?00 manual restart from location or by CTRL/C. (r) 

?01 illegal line number. 

?02 illegal variable or function name. 

?03 unmatching parentheses. 

?04 illegal command. 

?05 nonexistent line number. 

?06 nonexistent group or line number in DO. 

?07 illegal format in SET or FOR. 

?08 double or missing operators in expression. 

?09 stack overflow or nonexistent device. 

?10 core filled by text or command line too long. (o) 

?11 core filled by variables or no room for variables. (o) 

?12 exponent range greater than E+38. (o) 

?13 disallowed bus address in "FX". (o) 

?14 division by zero attempted. (r) 

?15 attempt to exponentiate to a negative power or power 
too large. (r) 

?16 too many characters in input data. (r) 

111 square root of negative number. (r) 

?18 input buffer overflow. 

(o) operational error 
(r) a run-time error 
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APPENDIX F 
FOCAL- 11 COMMAND AND FUNCTION SUMMARY 



F.l COMMANDS 



Command 
ASK 



COMMENT 
CONTINUE 

DO 



ERASE 



FOR 



Abb re- Example 
viation of Form 

A ASK M 



ASK "AGE", A 
COMMENT 
DO 4.1 
DO 4 

DO ALL 



C 
C 



D A 



D v 



E A 



E T 



DO var 

ERASE 

ERASE 2 

ERASE 2.1 

ERASE ALL 

ERASE TEXT 



Action 

Request input from the current 
input device. 

Output text (AGE) and store input 
as variable A. 

Ignore the remainder of the line. 



Execute line 4.1; return to 
command following DO command. 

Execute all group 4 lines; 
upon ■ completion , return to 
command following DO command 
or when a RETURN is encountered. 

Execute entire indirect text as a 
subroutine. 

Execute the line or group of lines 
defined by the variable (var) . 

Erase the symbol table. 

Erase all group 2 lines. 

Erase line 2.1. 

Erase the entire program and clear 
all variables. 

Erase text only; do not erase 
symbol table. 



FOR I=X,Y,Z; (commands) 
FOR I=X,Z; (commands) 

Where the command (s) is executed at 

each new value of I. 

X=initial value of I. 

Y=value added to I until I is 

greater than Z. Y assumed=l if 

omitted. 



GO 



GO 



Starts indirect program at lowest 
numbered line number. 



GO 3.4 



Transfers control to line 3.4. 



F-l 



Abb re- Example 
Command viation of Form 



Act ion 



IF I IF(X)L1,L2 ,L3 

IF(X)L1,L2; (commands) 

IF(X)L1; (commands) 

where X is a defined variable, a 
value, or an expression, followed 
by one to three line numbers. If X 
is less than zero, transfer control 
to the line number LI; if X is 
equal to zero, transfer control to 
the second line number, L2 . If X 
is greater than zero, transfer 
control to L3. If the line number 
is not specified, proceed to the 
next sequential command. 

Km, K KILL Stop all I/O and reset I/O devices. 

Error code ?09 is printed. 



MODIFY M MODIFY 1.15 
OPERATE 

T OPERATE T 

O K OPERATE K 

P OPERATE P 

OR OPERATE R 

RP OPERATE RP 

O TK OPERATE TK 

L OPERATE L 

QUIT Q QUIT 

RETURN R RETURN 

SET S SET A=5/B*C 

TYPE T TYPE A+B-C 



Enable editing of line 1.15. 

Selects the input and/or output 
device for such commands as TYPE 
and ASK. 

Select Teletype printer. 

Select Teletype keyboard for input. 

Select high-speed paper tape 
punch for output. 

Select high-speed paper tape reader 
for input. 

Select both high-speed reader and 
punch for I/O. 

Select both Teletype keyboard and 
printer for I/O. 

Select line printer for output. 

Return control to the user (command 
mode) . 

Terminate DO subroutines, returning 
to the original sequence. 

Perform arithmetic assignment. The 
variable on the left side of " = " is 
set equal to the value of the 
expression on the right. 

Evaluate expression and type "=" 
followed by result in current 
output format. 
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Abb re- Example 
Command viation of Form 



Action 



WRITE W 

W A 



XECUTE X 



? (TRACE) 



TYPE A-B,C/E 



Compute each expression and type 
the resultant values. 



TYPE "TEXT STRING" " 

Type text. May be followed by ! to 
generate carriage return/line feed, 
or # to generate carriage return. 



WRITE 
WRITE ALL 
WRITE 1 
WRITE 1.1 



Type out 
program. 



the 



entire indirect 



Type out all group 1 lines. 
Type out line 1.1. 



XECUTE FSBR( 5 , ARG) 

Call functions without need for a 
dummy SET statement. 



GO? 



Starts at lowest numbered line and 
traces entire indirect program 
until another ? or an error is 
encountered, or until completion of 
program. 
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F.2 FUNCTIONS 



Function Form 

FABS FABS (expression) 

FADC FADC (gain, channel) 

FCHR FCHR (arg) 

FCLK FCLK ( ) 

FCOS FCOS (angle) 

FITR FITR (expression) 

FRAN FRAN ( ) 
FRAN (1) 

FSBR FSBR (group, arg) 

FSGN FSGN (expression) 

FSIN FSIN (angle) 

FSQT FSQT (expression) 

FX FX (func, UNIBUS-adc 



Action 

Returns absolute (positive value of 
expression. 

Provides access to A/D channels. 

Accepts and/or prints ASCII codes. 

Returns the value of the time 
elapsed. 

Calculates the cosine of a 
specified angle in radians. 

Provides the integer part of a 
number. 

Generates a random value between -1 
and 1. 

Calls program group specified as a 
subroutine. 

Returns -1 if expression <0, if 
expression =0, 1 if expression >0. 

Calculates the sine of the 
specified angle in radians. 

Computes square root of expression. 

ss, data) 

Controls additional device options 
or nonstandard peripherals or 
references to core storage. 
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APPENDIX G 
FOCAL-GT SYMBOL TABLE 



i M A I t 




«AfD| X 6?2(6?2> 


-1 3"- 


ApR-73 13l4? 


PA G E 66-3 


F CCbT , 


">tf? "5 Y B n L 


I A fcj [_ t 






a q cr r 
* o ^> r r 






*C 


= X (J '-1 k) 1 


A[)CS 








AQDF F 


t 1 * 6 2 3 2< 


AOlN 


A U 






*H 


s?Uiri0004 


AL 


At r 2 f3 
A L G c H 




226^2? 


AL I G M A 


006270 


ALlG K) 8 


ALU 


E 


220vi01 


ALTAKA 


S"'16324 


ARGnXT 


ASCI I 




Z?342f 


ASK 


0P5244 


as^ace 


ATI I C T 


S 


021344 


AX I N 


H P 1 6 4 ? 




r r 

« t- 






^EG I N 


e t^llnJB 


f'ELL 


RU 






H L 


5 %A'*tf003 


R T x M 


our r UL 






RlJFR 


f " 1 6 4 4 


CCFlG 




■ 5(320004 


chin 


2 7 1 


CHlNX 


C 1 /Ml 

CLCU 




<J j 


clkadr 


= tfMj_34 


CLKjN 




3 


722626 


C|_"LOP 


0?44£6 


coco 


w writ, ^ 1 


E 


02 i?5 ffl 


CQP Y L N 


= If 463f 


CO p YLX 




= 


2 5 * J, 5 


DBOT 


« 0?30l6 


OCHR 






0™161C 


heconv 


007702 


0ECQN1 


DECOY 




2? 7 764 


OELETE 


= ;tM004 


oetn 


I FL 




32 6 60!* 


f>I GTSA 


0A2654 


DJGtST 


J VFF 




£ ? 6 6 6 A 


OIVZER 


'16642 


DjMp 


□ 




0P4f66 


OOCOMT 


f 4 2 * 4 


DOER 


D0G Rp l 




024124 


0OGRP2 


kJf 4120 


O0X[T 


US let 




221625 


hstp 


= 173400 


hu n asc 


OX J T 




22754P 


E 


■ %00l/,00? 


ECHOLS 


EDl Tj T 




224714 


EFUN 


004614 


EFUn3 


EMD I H 




22567? 


EM I ME 


JH15704 


emInd 


EMT 


a 




FMTHR 


^^5736 


EMTq 


ENOFLG 




aj4ft7t> 


fni t? 


0^3070 


ENUM 


tP AH 




02446H 


FPAR? 


" 4 5 1 


EPURF 


ro a c r T 


X 


124640 


ERASEV 


s 1 4 6 3 6 


ERG 


FDD nR 


E 


if 440?'" 


C.RH OH C 




FRR2 


F D T V 




2241*53 


ER V 


H f J 7 6 4 


ERVc 


F Tr DM 




024j74 


E TERMN 


6^^4566 


FTtRMj^ 


t V * Lp 




02452? 


fllAI II 


i ■ 40OW 


C \l A I 1 1 k/ 


F 






FCOOE 


= 0/17200 


fcont 


FCOS 




31042* 


FC0S2 


010466 


FC0S4 


FERRO 




02673? 


F I GOE 


007654 


F 1G01 


FIG03 




ae 7 664 


FIG04 


007674 


FJNCR 


FINQN 




022=574 


FINOO 


302622 


FINDX 


F[NFJN 




024?66 


FISW 


001.626 


FUARG 


rusTi 




001336 


FLISTZ 


0:»l330 


FLOAT 


FLOUT 




02745m 


fltqo 


075556 


fltooi 


FLTX 




025624 


fltzer 


0/13530 


FNAqOR 


F0G01 




027!*4;> 


FOGO? 


0"707? 


FOG03 


FOR 




21? 422? 


FPASS 


= 0*7073 


FRApD 


FPGET 


Z 


02700"! 


FPINT 


= 007071 


FPMUL 


FPNQR 




027070 


FPPOW 


= 0^7050 


FpPuT 


FPRNT 




027,t56 


FPRNTP 


M07376 


F P S g N 


FPURE 




32552? 


FP1 


034332 


FP6 


FROM 


E 




FSIN 


010416 


FSlZE 


F2ER 


E 


22 7077 


GALL 


2^2554 


GALLl 


GETARg 




284674 


GETC 


= 1?4614 


GETCH 


GETLM 


E 


12462? 


GETLNX 


0C2454 


GETvAR 


GGROUP 




02256P! 


GOFOC 


0?3112 


GONE 


GRALL 




023320 


GROOVY 


= 104650 


GROVX 



= 176?7IJ 


ADOB 


s 176772 


= 172'100 


AF!X 


025344 




ALG2A 


006506 


02 6156 


ALtST 


= 021433 


7 4 7 6 


ARO 


025330 


0?5l40 


atake 


025304 


jf03 


9DIVX 


026476 


1 0Z2«07 


RELOW 


024262 


RUFBEG 


= 011330 


i52l 6 01 


CFRS 


0ei654 


022756 


CIMT 


01025* 


s i?2 4 04 


CLKT 


010?74 


0i4^'l2 


CO M BUF 


= 001461 


014040 


CR 


= 020019 


= l70£00 


dosize 


= 012576 


0?7722 


nECON z 


010002 


01 tfZb 


ofile 


025178 


• l?4f44 


niRECT 


= 000000 


= 14 04-00 


DNOP 


s 164000 


024?2" 


noeR 


004106 


024?10 


OPT 


= 114000 


093454 


OVEC 


— 110000 


' 021^52 


fcolog 


003252 


324j.56 


elrar 


024504 


025726 


fmrel 


025744 


025716 


FNA8 


= 003124 


02 4^74 


ENUM2 


004604 


024436 


ERASE 


023744 


024?1^ 


ERL 


004002 


0? 1 752 


ERT 


023770 


024C34 


ERVX 


005100 


024^44 


FTFRMj 


004406 


024^64 


EVAL.X 


= 124660 


024306 


FC0NT 2 


004312 


010S26 


FE M T 


005472 


027566 


FJS02 


007636 


024*54 


FINDLN 


= 104624 


022^66 


FINERR 


004252 


02i»l2 


FL1MIT 


004300 


0j4 340 


FL0SCN 


007034 


025=44 


FLT0NE 


010560 


0'7«}46 


FNTABL 


= 00U6* 


027i 12 


F0G04 


00712* 


* 027*10 


FPOlV 


= 007030 


= 027640 


FPNEG 


= 007074 


= 027P60 


FPR I NT 


= 007076 


- 027*72 


FPSUR 


s 007020 


033576 


FREAO 


e 007075 


s 022^54 


FTRY 


00743* 


022^22 


GEND 


= 024144 


= 124614 


GETF 


02611* 


024704 


GETX 


003232 


022i 46 


GOTO 


02343* 


02?>72 


GRftvZ 


002650 
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GSERCH 




ee4 7 3p 


GS I HE 


a 


0(12004 


GS1 




024776 


STAKE 




035170 


GTESTW 




02251? 


GTPC 


= 


172000 


GTSTAT 


a 


172510? 


GTX 


a 


172004 


HIBITS 




024662 


HOBO 




0!*l620 


IGNCE 




023152 


IMMEO 


= 


0C0005 


INDEV 




02163? 


INFILE 




0?3670 


IN1T? 




023^7? 


INLIST 


a 


HP11366 


I NTT 




02633!" 


I NTG 




0516340 


INTY 




026366 


INTZ 




036356 


lonx 




010J04 


IOGO 


= 


01?362 


I 00 




010334 


IPTR 


a 


000001 


K 




023916 


KIN 




(11636 


K1NT2 




010136 


K I NT3 




010136 


KKSIZE 


s 


03777P 


KSI2E 


s 


020000 


LEDOUT 


a 


17040? 


LF 


s 


PP1001? 


LINCNT 




02163P 


LlNENO 




0f11624 


LIST3 


s 


021456 


LIST6 


B 


031453 


LOCGO 




024176 


LOCSF.T 




024164 


LOSE* 




02342? 


L0SE1 




003426 


LPADR 


a 


020324 


LPBS1Z 


a 


00000 


LPS 


E 


177S14 


LPSSIZ 


a 


000000 


MAKSUR 




0! 3449! 


HQP0 




0?6434 


MORNOP 




024156 


^ORTXT 




023370 


NALPWA 


l 


020i"2fl 


NEGFF 




006562 


NOBLI 




02375? 


NOFKO 




0?3106 


NOtPS 




023204 


MOP 




0P6000 


NORF 




026H36 


NQRMO 




006072 


NORX 




026?04 


NOS 




010070 


NOTBAK 




02361? 


NQTEXT 




023606 


NOTOliT 




0236551 


MOTT 




023066 


NUMF 


a 


020054 


ONE 


a 


00IM200 


OPEN 


» 


024646 


OPERR 




0A4572 




a 


124611" 


OUTCO 




0?4056 


OUTX 




223064 


OUTY 




003042 


PACKC 


M 


124616 


PACKX 




0«3i36 


PBAR 




023176 


PC 


= %0t*0007 


PC2 




023504 


PERR 




004672 


P0SC3 




024360 


PQSOUT 




024050 


POWFl 




026644 


POWS 




0H6670 


PRINT 


a 


124400 


P R I NTA 




002316 


PRIN2A 




022626 


PRNTF 




0C7012 


PRNTS 




027474 


PRNTl 




307532 


PROCES 




02345? 


PROGIO 




010336 


PTEN 




027:164 


PTR 




X0Plt!002 


PUTTXT 




Z2340? 


PWRDWN 




0i»5752 


PWRUP 




326005 


REAOC 




1 14606 


RESETC) 




024504 


PETLOC 




0?4H0 


RETUP'J 




023516 


ROOTGO 




01 .9244 


RUBX 




023?1(» 


RUBX2 




Id 113214 


SCONL 




Z23566 


5 CONT 




$ 1^3564 


SFINO 




Z2361? 


SFOUMO 




003620 


SIGN 




Z26734 


S I GNH 




1^646!" 


SKPNOfj 




174654 


SKPNOX 




12372 



GSWIP 


025"60 


GS0 


004t64 


GTEsT 


02 5i 60 


GTESTN 


022562 


r,T«Y 


025V34 


G T R Y 2 


025144 


GTY 


= 172"06 


GT40 


a 000000 


IF 


023*74 


IGNOR 


002H* 


INAqDR 


025662 


INCH 


= 104618 


INlT 


011*30 


IN 1 TO 


023166 


inptr 


0*4*72 


INPUTN 


002204 


INTO 


= 020"03 


INTX 


026362 


INV 


0?3*l4 


INV0 


02456J 


IOLIST 


a 012-.52 


IOPATC 


= 010400 


JMS 


* 123/14 


JUST0 


023456 


KIN T 


010110 


kintI 


010132 


K I Ny4 


010i 42 


KITH 


010074 


LASTL 


0?5< 06 


LEAST 


023634 


lfchap. 


0?5"64 


LFS 


024674 


t I NfRR 


022714 


LJ5TG0 


= 001406 


LOC 


b%020!<00 


LOCGET 


024204 


LOC0 


0?5?02 


LORD 


021622 


LOSE? 


023*14 


LOST 


023370 


lpint 


J4626 


LPLOC 


024656 


LSPR 


021602 


LTSERO 


027414 


MODE 


0?4<62 


MOO[FY 


003552 


MULFF 


026426 


MULH 


006166 


N£Gx 


026470 


NEWLOC 


024200 


NOLP 


053770 


NOLPCO 


024614 


nopl^P 


034150 


noresp 


023146 


NORmZ 


02 6 < 72 


N0RM2 


006046 


NOSeNO 


034774 


NOShOW 


024734 


notf 


0J3-44 


NOTFUL 


025144 


NOTyET 


033*32 


NQ18 


024476 


onpjc 


0?4*10 


OPADHR 


006126 


CPNEXT 


024^36 


OUT 


003002 


nijToEv 


001634 
023 f l2 


OUTW 


002764 


OUT? 


P 


= 250002100 


pa«tsa 


025?06 


PARTST 


= 104646 


PCF 


021604 


PCI 


003524 


PLUGCO 


053344 


POPJ 


= 000207 


POWQO 


026700 


PQUF 


026650 


ppS 


= i?7^54 


PRESET 


= 170406 


PR INTC 


s 174*04 


PRINT2 


= 104642 


PRNTLN 


* 174^26 


PRNTP 


007506 


"RNT2 


027*22 


PROC 


023454 


PRS 


= 177*50 


PSCAN 


023444 


3|jTcn 


034264 


PUTF 


025630 


PrfKEGS 


026^20 


OWRON 


006034 


PE*OF 


027"'42 


REL 


= 000006 


RE T NEW 


034312 


retnow 


024076 


rtpaR 


- 020211 


rusit 


023200 


R5 


= X020lf05 


scwaR 


003572 


SE«R 


023624 


SET 


= 004222 


SGNF 


026S32 


SGNl 


026536 


SILENT 


035f'26 


SKPlPR 


= 104652 


SQRTR 


022406 


SQRTC 


* 124602 
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S QR T n 




Z 7 2 4 4 '1 

£ ? B i£ A 


c n 

bp 




Com VT 
3 r N A I 




t j i O ]. 6 * 


SRNL^ T 




<? ft • .4 M 

<C r ^ a k 


CTiDTU 
3|AnlV 




t) r. 1 O M p 


<5 Tl t \t 




V if O " £ " 






i- *f 






2 2 6? 2 ? 


I A o ft " 




7 ft R ^ i r* 

i> ' K J H J. ■ 1 


T Q U M P 




£ 1 W T> O * 


t rM i m n it 




i i 65 ft 






1 / 3 f> 1 ' 


rr Due 
it"™* 




4 1 / 1 *t X 


It!) 1 1 




2 3 - 1 / 4 


T H R U g 


s 


1 1 1 ntr 4 


TL I ST 


= 


£ '■' 1 1 <* 1 


TQHOS T 




«2 01 5* 


TOS 




0P7324 


T d e 




i T 7 6i A A 


TSTERR 




5! ** 4 ^ 7 


TXTDUN 




0?5156 


TYPE 




20522* 


WAYO'JT 




323654 


WRED 




02373" 


WR1TE2 




323654 


XCMA«G 




Zj 077? 


XCUR 




22413^ 


XOTHIS 




003360 


X£M 






xex 




011134 


XEX3 




®n?2* 


XITR 




Z2640A 


XMOV 




3?3?54 


XPTR 






XSGN 




U064 1 *? 


XTXT 




^23364 


H 







' U ^ 1 


s i ■ 4 6 51 pi 




- (^^1445 




P 1 2 5 ? 


STACK 


r y h J* pj 


5TARTX 




STOP 


7fi)4 


STP I NT 


P P4634 


Sw I TCH 


= P 1 6 3 i 


TCLEAR 


P?4362 


t ni (MP 1 




TEMP 


™ jj, ^/ ./ 1. w 


T E N I N T 




TrRS T ? 
' t n « * t 


s fe) ^ i/i 1 5) C 


Trx 


c 


I J IN | H 


(j n k 4 ffl 


xnr 

T Or 


M ffl 7 p 6 pi 


TnnR i r 

i UI'O 1 11 


^ ^ 4 2 4 2 


TnT 




I u u u I 


^) *? 4 4 ? 


TSTTXT 


f ^4676 


TXTHAN 




IJTX 


0-/132ZR 


MGO 


M«13742 


WRIG 


Ht"37g4 


UTESTG 


033712 


XCHMn 


H10756 


XOELET 


«f3272 


XD3 


0(^3276 


X£R 


0J1316 


XFXIT 


C , ll3l42 


XEX4 


l, ll24 ( ' 


XI33 


»10Pl22 


XOUT 




XRAN 


■r? ^ id 7 13 <4 


XSKP 


02351.4 


XVEC 


t*?3244 


ZEROriM 


H'^6370 



SOUND a j2424 

SPNqR = 1?4^34 

sqx air^5B 

ST»C*0 021706 

STATUS » 177?76 

STOPIT 0j4ft50 

S TH [ MG = 0301*30 

TASK s 1»4^5« 

TCRL F 02510^ 

TDUMP2 0i(!fl2 

TEN 027J.02 

TENoUT * 175*14 

TESTC 1 1,74*20 

TEXT 011772 

TjUmPS BJ4144 

TO^OCL. 053*57 

TQP 0«1/5(Z 

TpR 023 l 3< 

TRAPH 0^1714 

TTSl?E = 026-00 

TXTJMP 0j 3 f42 

VE«R 024670 

WHIPV 024770 

WRITE 023*46 

XA»S 026t76 

XCHR 0, 0760 

XDIS 0j3-00 

XECuTE 023> 44 

XE«R 011-126 

XEX 2 0ii,52 

XFClK 0iE-.72 

XU3X 1 J , '-44 

xphnTl 023,00 

XRO|_ 0,0726 

XS«T 0i0«54 

XXCO 5 4--00 
= 0j 3 i6^ 



SOX 


002420 


spmo r x 


003126 


SRETN 


00222* 


RTART = 


; 104632 


5TIL0N 


024170 


STPADR : 


■ 000320 


RU R END = 


■ 024676 


TASKX 


00541J 


TCRLF2 


005464 


TDUMP3 


010600 


TEMADR : 


: 000300 


TERM : 


: 000000 


T£STX 


00233* 


THISLN 


001606 


TKS 


= 177560 


TOC 


00724* 


TOR 


007310 


TPRl 


0035*0 


TSJZE : 


: 001000 


TXTDIS 


024720 


TXTPTR 


024666 


VI S 


023304 


WHOOPS 


001640 


WR t TEL 


003670 


XAOC 


011070 


XCHRl 


01100* 


XDOX 


00333* 


XEL 


0U322 


XET 


011250 


XEX2A 


01121* 


XFSBR 


0H02* 


XLP 


02406* 


XPT 


02326* 


XSET 


02327* 


XTSTLP 


002636 


XYCO 


024004 
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. M A l iM , 


"UCULX 6?2(6?2) 


-1 3t3» 


APR. 73 13 


fOCGT,' 


30? SYMBOL 


TABLE 




A8AD 




225)376 


AB s f F 


006556 


AUDb 


= 


176772 


ADOC.hr 


027724 


AFIX 




005344 


AGO 


53 72 


AIG£A 




0065C6 


*L<3*H 


006522 


At I ST 


s 


001433 


ALL 


a 0U0P01 


ARU 




005335) 


ASCI I 


026230 


ATAKE 




036304 


ATL1ST 


: 001344 


BU I VX 




006476 


BE 


001616 


HELQW 




027072 


BH 


■'(000002 


BUFBE.G 


X 


01133C 


BUFf'UL 


002202 


CFRb 




001654 


CHAR 


=%000004 


C t N1 




010256 


CLCU 


010210 


CUKJMT 




02557(1 


CLKLOP 


025552 


CLRLOP 




027236 


COCO 


026620 


COPYLN 


B 


104630 


CQPYLX 


004040 


OBOT 


1 


021174 


DCHK 


a 100000 


DECONV 




,307702 


OECQNl 


007722 


DELETE 


S 


0035104 


DETN 


010006 


D I GTS A 




002654 


D I G T S T 


a 104644 


D J V2EH 




20664? 


njMp 


a 160000 


OOCONT 




004204 


DOER 


0(54220 


DOGRP2 




004120 


OOXJT 


004210 


05TP 


• 


173400 


0T1ME 


025604 


DVEC 


- 


110000 


nxi T 


007540 


E?OI»OG 




003252 


EOITIT 


027524 


EI.PAR 




004504 


EMD 1 R 


005672 


EflREL 




005744 


FMT 


a 007000 


ENAB 




003124 


ENQFLG 


027500 


ENUM2 




004604 


EPAR 


004460 


ERASE 




003744 


ERASET 


- 104640 


EHL 




004002 


ERROR 


- 104400 


ERT 




003770 


ERTX 


004050 


EP.VX 




005100 


ETERM 


004374 


ETEHM2 




004406 


EVAL 


004520 


EVAU.X 


■ 


104660 


F 


■X000003 


FCONT2 




004312 


FCOS 


03,0426 


FEMT 




005472 


FERRO 


006732 


FIG02 




007636 


F JG03 


007664 


FJMQLN 


■ 


104624 


F1NQN 


002574 


FJNERR 




304252 


FINF1N 


034266 


F U I M I T 




004300 


FLIST1 


001336 


FL.QSGN 




B07034 


FLOUT. 


007450 


FL,TQNE 




010560 


FLTX 


005624 


FNTABL 


a 


001166 


F0G01 


007042 


FQG04 




007124 


FOR 


004222 


FPDJV 


£ 


007030 


FPGtT 


a 007000 


FPNEG 


s 


007074 


FPNQR 


a 007070 


FPR JNT 


a 


007076 


FpRNT 


007356 


FPSUB 


a 


007020 


FPURE 


005522 


FP6 




026404 


FREAO 


a 007075 


FS12E 


a 


006600 


FTRY 


007434 


GAUU1 




002522 


GENU 


a 026754 


GETCH 


s 


104614 


GETF 


006114 


GETVAR 




004704 


GETX 


003232 
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a 


*le00f»01 


A U r ^ w 


a 


176770 


AODF f 




006730 


AD 1 M 


a 


170400 


AH 




X00O0B4 


AL 


aX000005 


al ! GMA 




006270 


AL I S V B 




006256 


ALTAKA 




006324 


ARRNXT 




004476 


ASK 




005244 


aspace 




005340 


AXI N 




001642 


AXOIJT 


aX000003 


BEG I M 


3 


001100 


BELL 

n w % 




a pj a m « 7 


BL 


SX000003 


nOTTOM 




001652 


HUFR 




{A 01 1 Hi a A 

hi u j. n "i i 


CCFLG 




510 1 6 1 

4> u V * 


CHIN 




H 01 9 7 1 01 


TH ! NX 




01010756 


CLKAnR 




[ARIA* \ A 
w V) 10 J. O •* 


TLK 1 ^ 




1 7 PI A PI A 
X ' 10 * 10 •* 


CL* T 




01 4 fX 9 7 A 


CLOSE 




01 y 9 fc 9 A 

10 1 c o c o 


COMSUF 


* 


10 1 ^ 1 


rOMLST 




01 P1 1 7hC 
H VJ i « 3 IT 


CR 




M n m (A 1 >i 

10 fcj |0 Z 1 1 9 


rRL F 




I0 C 9 M 1 9 


OOSIZE 




0077/4 


n EBG 




01 oi 1 & 1 a 


0EC0"2 




U 1 KJ «)0 C 


OECQY 




oi 017 7 A a 

to 10 / ro' 


OF I LE 




M 9 7 7 7 4 


niFL 




01 H A A 0! 01 
10 10 O O |0 10 


I SECT 




M oi a oi ui oi 

10 10 10 /I ID 10 


n I VFF 




PI K 6 96 6 


DNIOP 




1 A A ft l/l M 
X H £ v B 


no 






00 GR 




004106 


ngGHPl 




1010 t 1 6 


OPT 




114000 


IS 1 iF 




001252 


OUNAD 




0253S6 


n u n a s c 




026264 






14000002 


FCHULS 

r w " v ^ w 


a 


001450 


EFIK'J 




004614 


FFDNJ 




004656 


EM J ME 




005704 


FMTNO 




005726 


EMTHR 




005736 


FMTO 




005716 


EN! T2 




003l'70 


FNUM 




004574 


EPAR2 




0045^0 


FPURE 




004436 


ERASEV 




104636 


FRG 




00405.0 


ERRORC 




003502 


FRR2 




0B1752 


ERV 




003764 


FRVC 




004034 


ETERMN 




004566 


FTERM1 




004944 


EVALU 


a 


104660 


EVALUX 




204664 


FCOOE 


a 


007200 


FCONT 




004306 


FC0S2 




010466 


FC0S4 




010526 


F1G0E 




007654 


neoi 




007966 


FIG04 




0076/4 


FJNCR 




004254 


FINQO 




002622 


F I NDX 




002566 


F15W 




001626 


F|,ARG 




001612 


FLIST2 




001330 


FLOAT 




027150 


FLTDO 




0055S6 


FLTUOl 




005944 


FLTZER 




003530 


FNAOOR 




006146 


F0G02 




007072 


F0G03 




007110 


FPABS 


a 


007073 


FPAOO 


a 


007010 


FPJNT 


a 


007071 


FPMWL 


a 


007040 


FPPOW 


a 


007050 


fppQt 


a 


007060 


FPRNTP 




007376 


FP5GV 


a 


007072 


FP1 




0271«2 


FP10 




025444 


FROM 


a 


000003 


fSIN 




010416 


FZER 


a 


007077 


GALL 




002954 


GETARG 




004674 


r.ETC 


a 


104614 


GETLN 


a 


104622 


fJETLMX 




002454 


GGROUP 




002560 


GOFOC 




025704 



H-l 
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GONE 




002146 


GOTO 




003436 


GRQVX 




002672 


GROVi! 




002650 


GSW I P 




005060 


GS0 




004764 


GT EST 




005160 


GTESTN 




002562 


GTRY 




005134 


GTRY2 




005144 


GTY 


3 


172006 


GT40 


3 


000000 


If 




003374 


IQNOR 




002114 


1 NAQDR 




005662 


I NCH 


S 


104612 


I N I T 




011330 


I N I TO 




025760 


INPTR 




027502 


I NPUTN 




002204 


I NTO 


1 


000003 


1 NTX 




006362 


INV 




026124 


I NV0 




027372 


IOL1ST 


m 


010352 


IOPATC 


8 


01,0400 


JMS 


u 


X03414 


JUST0 




026266 


K J NT 




010110 


K J N T 1 




010132 


KJNT4 




010142 


K J TH 




010074 


IASTL 




027716 


LEAST 




026444 


LFCHAR 




027674 


lfs 




027504 


L JNERR 




002314 


L I STGQ 


3 


001406 


LOC 


3*000000 


LQCGET 




027014 


lock 




030004 


LORp 




001622 


LQSE2 




003414 


LOST 




003370 


LPJNT 




027336 


LPLOC 




027466 


LPSBUF 


« 


021174 


LPSS1Z 


3 


004414 


MAKSUR 




026250 


MQP0 




006434 


MORNOP 




026766 


MORTXT 




026200 


NALPHA 


3 


000020 


NEGFF 




006562 


NEWLOC 




027010 


N(3 AQ 




025312 


NOEKO 




025700 


NOLP 




026600 


NOP 




006000 


NOPLPP 




026760 


NORMO 




.006072 


NQRMi! 




006172 


NOS 




010070 


NQSENO 




027604 


NOSHOW 




027544 


NOTUAK 




026422 


NQTFUL 




027754 


NOTOUT 




026460 


NOIB 




027306 


NIJMF 


3 


000070 


ONPIC 




027420 


OPAOUR 




006126 


n a 11 r w f 

QPNEXT 




004536 


OUT 




003002 


OyTQEV 




001*34 


OUTW 




002764 


0UT2 




003012 


P 


3X0H0000 


PAHTSA 




005206 


PARTST 


3 


104646 


per 




001604 


PCI 




003924 


PLUGCO 




026154 


POPJ 




000207 


POWDO 




006700 


PQHF 




006650 


PPS 


a 


177554 


PRESET 


3 


170406 


PRJNTC 


s 


104604 


PR I NT2 




104642 


PRNTLN 




10462S 


PRMTP 




007506 


PRNT2 




007522 


PROC 




003454 


PRS 


E 


177550 


PSCAN 




003444 


PWTCO 




0?7074 


PUTF 




005630 


PWHEGS 




006020 


PiJRUN 




006034 


REAPF 




007542 


REl 


3 


000006 


RETLOC 




t/26720 


RETNEW 




027122 


KOOTGO 




010244 


RT 




000000 


HU6X 




303210 


RUBX2 




003214 



GRaLL 




026130 


r.ROOVY 


I 


104650 


GSERCH 




004730 


r,S!2E 


3 


002«14 


GS1 




004776 


GTAKF 




005170 


GTESTW 




0025J2 


CTPC 


3 


172000 


GTSTAT 


- 


172P02 


f!TX 


3 


172004 


MJBITS 




027470 


WORD 




001620 


IGNORE 




025744 


I MMEn 


3 


000009 


INOEV 




001632 


I NFJLE 




026900 


IN1T2 




003072 


t NL 1ST 


* 


001366 


INTF 




006330 


f NTG 




006340 


1 NTY 




006366 


! NT* 




006356 


10FIX 




010304 


t OSO 


3 


010362 


IOO 




010334 


?PTR 


1 


000001 


K 




025610 


K J N 




001936 


K J NT2 




010136 


K INT3 




010136 


KKS I 2E 


- 


037770 


KSI2E 


3 


020000 


LEOOUT 


- 


170402 


LF 


3 


000012 


UNCNT 




001630 


L I NENO 




001624 


LISTS 


3 


001496 


HST6 


3 


001453 


LOCGO 




027006 


I.OCSET 




026774 


LOSE0 




003422 


L0SE1 




003426 


LPAQR 


3 


000324 


LPPSIZ 


3 


001762 


LPREG 




025402 


LPS 


3 


177914 


LSPR 




001602 


LTZERO 




007414 


MODE 




027472 


mop i FY 




003952 


MULFF 




006426 






006166 


NEGNUM 




025426 


kl EGX 




0K6470 


NOAROV 




025602 


NORLI 




026962 


MOLPCO 




027424 


MOLPS 




02601,4 


NQRESP 




029740 


MQRf 




006036 


N0RM2 




006046 


».'0»X 




006204 


NQSET 




025544 


NQSH 




025242 


NOTEXT 




02643,6 


NQTF 




025631 


NOTT 




025660 


NOTYET 




026242 


NUKLOP 




025436 


HNF 


3 


000200 


OPEN 


= 


024646 


OPER" 




004972 


OUTCM 


3 


104610 


OUTCO 




026666 


OUTX 




003064 


OUTY 




003042 


PACKC 


3 


104616 


PACKX 




003136 


P8AR 




003176 


PC 


3X000007 


PC2 




003504 


PERR 




004672 


POSCO 




027110 


POSOUT 




026660 


P0WF1 




006644 


POWS 




006670 


PRINT 




3,04400 


PRINTA 




00231f 


PRIN2A 




002626 


PRNJF 




007H12 


PRNTS 




007474 


PRNT1 




007932 


PROCES 




003492 


"ROGIC 




010336 


PTEN 




007064 


PTR 


3X00000Z 


PUTTXT 




026212 


PWPQWN 




005752 


PWRUP 




006002 


PEAOC 


3 


104606 


HESETD 




027314 


"ETUAT 




025366 


HETNOW 




026706 


"ETU R N 




003516 


RTPAR 




000211 


Ryeji 




003200 


»5 




X000P09 


"AMLOP 




025304 



H-2 



.MAIN. MACOLX 622<622)»1 Jfc)-APH.73 1314a 
FOCGT.002 SYMBOL TABLE 



SCHAR 
SET ■ 
SGN1 
SUOK 
SORTB 
SOUND 
SPNOR ! 
SQX 

STACKO 
STATUS ' 
STOPIT 
STRING ' 
TASK • 
TPHLF 
TPUMP2 
TEN 

TENQUT i 

TESTC 

TEXT 

TJUMPS 

TOFOCC 

TOP 

TPR 

TRAPH 

ttSIZE 

TXTJMp 

VERR 

WHIPV 

WRITE 

XABS 
XCHR 

XDJS 

XECWTE 

XERR 

XEX2 

XfCLK 

XI33X 

XOUT 

XRAN 

XSGN 

XTSTLP 

XYCO 



003572 

004222 

006536 

025254 

002406 

002424 

104634 

010250 

001706 

177776 

027460 

000030 

104656 

005404 

010612 

007102 

175614 

104620 

031772 

026754 

025751 

001650 

003534 

001714 

006000 

026452 

004670 

004770 

003646 

006376 

010760 

026510 

003544 

011326 
011152 
010272 
010044 
010052 
010704 
006402 
00263* 
026614 



ScONL, 

SFInD 

SIGN 

SKPI.PR 

SQRTC 

sox 

SPNQHX 

SRETN 

STAHT 

STILON 

STPADR 

SUBENU 

TA5KX 

TCRUFJ 

TDUMP3 

TENADH 

TERM 

TEST* 

THISIN 

TKS 

TOG 

TOR 

TPR1 

TSUE 

TXTOIS 

TXTPTR 

V JS 

WHOOPS 

WRJTEL 

XAOC 

XQHHl 

XDOX 

XEL 

XET 

XEXZA 

XFSBH 

XUEO 

XPRNTL 

XROL 

XSKP 

XTXT 

I 



003566 
003610 
006734 

a 104652 

« 104602 
002420 
003126 
002226 

» 104632 
027000 

a 000320 

■ 027506 
0195412 
005464 
010600 

■ 000300 
= 000000 

002334 
001606 
a 177560 
007246 
007310 
003540 

3 001000 

027530 
027476 
0Z6H4 
001640 
003670 
011070 
011004 
003336 
011322 
011250 
011214 
0UP126 
025404 
003100 
010726 
026324 
026174 
» 020724 
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5C0NT 

SFoUnD 

SJGNO 

SKPNON 

SQRTD 

SP 

SPNXT 

SRNLST 

STARTV 

STL I N 

STPFLG 

SUBFF 

TASK4 

TDUMP 

TDUMP4 

TEN I N 

TERMS 

TEST10 

THROUG 

TLIST 

f OWOST 

TOS 

TPS 

TSTEMR 

f XTOUN 

TYPE 

WAYOUT 

WRED 

WRITE2 

XCHARG 

XCLR 

XQTHIS 

X£M 

XEX 

XEX3 

XITH 

XI.P 

XPT 

XSAM 

XSOT 

XVEC 

EEROOM 



003564 
0036*0 
006460 
* J,B4694 
002440 
SX0000B6 
003124 
» 001400 
001646 
003626 
027474 
006222 
0054J.0 
010564 
010656 
i 1,75610 
s 0014J2 
025666 
s 000004 
s 001441 
025790 
007324 
■ 177564 
027302 
027766 
005224 
026464 
003730 
003694 
010772 
026740 
003360 
0112(0 
0111^4 
011226 
006406 
026674 
026074 
025142 
010154 
026094 
006370 



S£RH 


003624 


*GnF 


006932 


SILENT 


027636 


SKPNOX 


002372 


tjgPT J 


* 104600 


^PFQIA 


« 001445 


SQUENO 


010252 


STAC* 


x 000000 


PTARTX 


002034 


STOP 


001704 


STP JNT 


327444 


eu 1 TTH 


■ 001631 


TCLEAR 


027172 


TDUMP1 


010570 


TTMP 


EX0I00G900 

m 1 (J w r* r i* 




025710 


TERS I 2 


i 0001,90 


TEX 


002366 


T I NTR 


005430 


TOF " 


007260 


TQOBlG 


027092 


TOT 


007276 


T QUO T 


005442 


TSTTXT 


027906 


TXTHAN 


027610 


IITX 


003220 


WGP 


00374] 


WR1 G 


003724 


WTFSTG 


0037JJ 


XCWM1 


01075* 


XOELFT 


003272 


XD3 


003276 


XER 


011316 


XEXJT 


011302 


XEX4 


011240 


XI33 


010022 


XHOV 


026064 


XPTR 


3 000002 


XSET 


026104 


XTIC 


025916 


xxrb 


026610 




« 025752 
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HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming 
notes, software problems, and documentation corrections, are published 
by Software Information Service in the following newsletters. 

DIGITAL Software News for the PDP-8 and PDP-12 
DIGITAL Software News for the PDP-11 
DIGITAL Software News for 18-bit Computers 

These newsletters contain information applicable to software available 
from DIGITAL'S Software Distribution Center. Articles in DIGITAL 
Software News update the cumulative Software Performance Summary which 
is included in each basic kit of system software for new computers. 
To assure that the monthly DIGITAL Software News is sent to the 
appropriate software contact at your installation, please check with 
the Software Specialist or Sales Engineer at your nearest DIGITAL 
office. 

Questions or problems concerning DIGITAL'S software should be reported 
to the Software Specialist. If no Software Specialist is available, 
please send a Software Performance Report form with details of the 
problems to : 

Digital Equipment Corporation 
Software Information Service 
Software Engineering and Services 
Maynard, Massachusetts 01754 

These forms, which are provided in the software kit, should be fully 
completed and accompanied by terminal output as well as listings or 
tapes of the user program to facilitate a complete investigation. An 
answer will be sent to the individual, and appropriate topics of 
general interest will be printed in the newsletter. 

Orders for new and revised software manuals , additional Software 
Performance Report forms, and software price lists should be directed 
to the nearest DIGITAL field office or representative. USA customers 
may order directly from the Software Distribution Center in Maynard. 
When ordering, include the code number and a brief description of the 
software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user 
library and publishes a catalog of programs as well as the DECUSCOPE 
magazine for its members and non-members who request it. For further 
information, please write to: 

Digital Equipment Corporation 
DECUS 

Software Engineering and Services 
Maynard, Massachusetts 01754 



DEC-11-GGTMA-B-D 
FOCAL-GT/RT USER'S MANUAL 



READER'S COMMENTS 



Digital Equipment Corporation maintains a continuous effort to improve 
the quality and usefulness of its publications. To do this effectively 
we need user feedback — your critical evaluation of this document. 



Did you find errors in this document? If so, please specify by page. 



How can this document be improved? 



How does this document compare with other technical documents you 
have read? 
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